<script>on mouseUpclose window (short name of this stack)end mouseUpon saveItglobal gDataPathsavePref gDataPath & "FirstClass.pref","FCGateName,FCAdminName,FCSpcRpcChar,stuffitPath","Keeps decoder open,enable private mail"if freeSize of this stack > 5000 then doMenu "compact stack"end saveIt</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>80</left>
<top>227</top>
<right>155</right>
<bottom>247</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cancel</name>
<script>on mouseUp-- this is odd, but just to restore the original value-- openStackclose window (short name of this stack)end mouseUp</script>
<script>on exitFieldcheckItend exitFieldon closeFieldcheckItend closeFieldon checkItput me into tif t = "" then put "_" into meput char 1 of t into tif t is in " @abcdefghijklnmopqrstuvwxyz1234567890.%*/^" thenbeepanswer "This is not a legal character to use: '" & t & "'."put "_" into tend ifput t into meend checkIt</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>188</top>
<right>236</right>
<bottom>200</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Converts FC Attachments to BinHex</name>
<script>on mouseUpanswer "Only available for commercial registered user."end mouseUp</script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>90</left>
<top>119</top>
<right>251</right>
<bottom>137</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>stuffitName</name>
<script>on mouseUpanswer file "Select StuffIt Expander..." of type "APPL"if it = "" then return ""put it into bg fld "stuffitPath"setDeli ":"put last item of it into bg fld "stuffitName"setDeli "restore"beepanswer "Make sure you have set the Preferences of StuffIt Expander to expand BinHex only." ツャwith "Help" or "OK"if it = "Help" then callHelp "StuffIt Expander Preferences Setup"end mouseUp</script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>244</top>
<right>12</right>
<bottom>256</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>30</textHeight>
<name>stuffitPath</name>
<script></script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>90</left>
<top>141</top>
<right>205</right>
<bottom>153</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Keeps decoder open</name>
<script>on mouseUpanswer "This option is under construction."end mouseUp</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>160</top>
<right>236</right>
<bottom>172</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Enable Private Mail</name>
<script></script>
</part>
<name></name>
<script>on tidy-- global gTELine-- put bg fld id 15 into line gTELine of bg fld id 14put bg fld "subList" into temprepeat with k = 1 to number of lines of tempif line k of temp = "" thendelete line k of tempend ifend repeatput temp into bg fld "subList"end tidyon updateSubList theText,theWordglobal gTELineif theWord = 4 thenput (word 1 to 3 of line gTELine of bg fld "subList") && theText ツャinto line gTELine of bg fld "subList"elseput theText into word theWord of line gTELine of bg fld "subList"end ifend updateSubListfunction omitSpace theTextrepeat--if offset(" ",theText) 竕 0 thenget offset(" ",theText)if it 竕 0 thendelete char offset(" ",theText) of theTextelseexit repeatend ifend repeatreturn theTextend omitSpace</script>